Hallo Community
Ein Beispiel!
Gruß Michael _
Quelle erste geöffnete Mappe/Index 1 _
Ziel zweite geöffnete Mappe/Index 2 _
Sub Abgleich()
Dim suche As Object
Dim ZeilenIndex As Long
Datenfeld = Workbooks(1).Worksheets(1).Range("A2:J" & Workbooks(1).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row)
For ZeilenIndex = 1 To UBound(Datenfeld)
Set suche = Workbooks(2).Worksheets(1).Range("A2:A10").Find(What:=Datenfeld(ZeilenIndex, 1), LookAt:=xlWhole)
If Not suche Is Nothing Then
If Workbooks(2).Worksheets(1).Cells(suche.Row, 9) <> Datenfeld(ZeilenIndex, 9) Then
Workbooks(2).Worksheets(1).Cells(suche.Row, 1).Interior.ColorIndex = 3
Workbooks(2).Worksheets(1).Cells(suche.Row, 9) = Datenfeld(ZeilenIndex, 9)
Workbooks(2).Worksheets(1).Cells(suche.Row, 9).Interior.ColorIndex = 3
Workbooks(2).Worksheets(1).Cells(suche.Row, 10) = Datenfeld(ZeilenIndex, 10)
Workbooks(2).Worksheets(1).Cells(suche.Row, 10).Interior.ColorIndex = 3
End If
Else
Workbooks(2).Worksheets(1).Cells(Workbooks(2).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Datenfeld(ZeilenIndex, 1)
Workbooks(2).Worksheets(1).Cells(Workbooks(2).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row, 1).Interior.ColorIndex = 3
Workbooks(2).Worksheets(1).Cells(Workbooks(2).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row, 9) = Datenfeld(ZeilenIndex, 9)
Workbooks(2).Worksheets(1).Cells(Workbooks(2).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row, 9).Interior.ColorIndex = 3
Workbooks(2).Worksheets(1).Cells(Workbooks(2).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row, 10) = Datenfeld(ZeilenIndex, 10)
Workbooks(2).Worksheets(1).Cells(Workbooks(2).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row, 10).Interior.ColorIndex = 3
End If
Next ZeilenIndex
End Sub |